home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 48
/
Publication_48_19xx_Civitas_de_Side_B.d64
/
bas char-matr.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
203b
|
14 lines
0 print"[147]";:
10 a=8192:b=1024:c=1:d=704
30 a=a+c*8
50 fori=0to7
51 poked+i,peek(a+i)
60 forx=0to7
70 c=2^(7-x)
80 e=int(peek(d+i)/c)
90 poked+i,peek(d+i)-e*c
100 f=b+i*40+x
110 pokef,32
120 ife=1thenpokef,160
130 nextx,i